home *** CD-ROM | disk | FTP | other *** search
/ Software Explosion 2 / Software Explosion 2 - Virtual Computer Pets (1997).iso / dpaint_data / tools / animated_demo / animated.install < prev    next >
Text File  |  1997-06-23  |  2KB  |  115 lines
  1.  
  2. ;************************************************
  3. ;*   AnimatED install script v1.2a (26-Apr-97)   *
  4. ;************************************************
  5.  
  6. ;*************
  7. ; Set strings
  8. ;*************
  9.  
  10. (set #where-prompt
  11. (cat "Where should I install AnimatED? \n (No directory will be created!)"
  12. ))
  13.  
  14. ;*************
  15. ; Ask dest dir
  16. ;*************
  17.  
  18. (set where (askdir (prompt #where-prompt)
  19.                    (help @askdir-help)
  20.                    (default @default-dest)
  21.            )
  22. )
  23.  
  24. (set @default-dest where)
  25.  
  26. ;***********
  27. ; Copy font
  28. ;***********
  29.  
  30. (copyfiles (source "Fonts") (dest "SYS:Fonts") (all))
  31. (complete 5)
  32.  
  33. ;************
  34. ; Copy files
  35. ;************
  36.  
  37. (copyfiles (source "AnimatED") (dest where))
  38. (complete 40)
  39. (copyfiles (source "AnimatEDPlay") (dest where))
  40. (complete 60)
  41. (copyfiles (source "AnimatED.Guide") (dest where))
  42. (complete 70)
  43. (copyfiles (source "AED_OrderForm") (dest where))
  44. (copyfiles (source "AED_OrderForm.info") (dest where))
  45. (complete 75)
  46. (copyfiles (source "ReadMe") (dest where))
  47. (copyfiles (source "ReadMe.info") (dest where))
  48. (copyfiles (source "AnimComp.txt") (dest where))
  49. (copyfiles (source "AnimComp.txt.info") (dest where))
  50. (complete 80)
  51.  
  52. ;****************************
  53. ; Ask which and install icons
  54. ;****************************
  55. (set #ICONS
  56.     (askchoice
  57.     (prompt "\nWhich type of icons do want to install?")
  58.     (help "\nHi! Just select one of the icon types.")
  59.      (default 0)
  60.     (choices
  61.         "#1: MagicWB 8 colors"
  62.         "#2: 4 colors (icons created by Brian Jones)"
  63.         )
  64.     )
  65. )
  66.  
  67. (if (= #ICONS 0)
  68.  (copyfiles (source "AnimatED.info") (dest where))
  69. )
  70. (if (= #ICONS 0)
  71.  (copyfiles (source "AnimatEDPlay.info") (dest where))
  72. )
  73. (if (= #ICONS 0)
  74.  (copyfiles (source "AnimatED.Guide.info") (dest where))
  75. )
  76.  
  77. (if (= #ICONS 1)
  78.  (copyfiles (source "icons/AnimatED.info") (dest where))
  79. )
  80. (if (= #ICONS 1)
  81.  (copyfiles (source "icons/AnimatEDPlay.info") (dest where))
  82. )
  83. (if (= #ICONS 1)
  84.  (copyfiles (source "icons/AnimatED.Guide.info") (dest where))
  85. )
  86.  
  87. ;**************************
  88. ; Copy keyfile if available
  89. ;**************************
  90.  
  91. (if (= (exists "AnimatED.key") 1)
  92.  (copyfiles (source "AnimatED.key") (dest where))
  93. )
  94.  
  95. ;********************
  96. ; Ask and copy extras
  97. ;********************
  98.  
  99. (set name
  100.  (askbool
  101.  (prompt "\nDo you want to install the example?")
  102.  (help "\nIt's up to YOU!")
  103.  )
  104. )
  105.  
  106. (if (= name 1)
  107.   (copyfiles (source "Example") (dest (tackon where "Example")) (all))
  108. )
  109.  
  110. (complete 100)
  111.  
  112. ;****
  113. ;End
  114. ;****
  115.